home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
faq-s.zip
/
VIEWANSI.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-09-01
|
1KB
|
56 lines
{$R-,S-,I-,D-,F+,V-,B-,N-,L+,O+ }
{$M 65500,0,0 }
unit viewansi;
interface
uses crt,dos,
gentypes,configrt,modem,statret,gensubs,subs1,windows,subs2;
procedure viewansiscreens;
implementation
procedure viewansiscreens;
var bobway:integer;
p:lstr;
asciii:boolean;
begin
if numwelcomes<1 then begin
writeln (^M^S'There are no Ansi Screens currently available'^R^M);
exit;
end else
repeat
asciii:=false;
p[0]:=chr(0);
p:='';
if ansi then write (direct,#27+'[2J') else write (direct,^L);
writehdr ('Ansi Welcome Screens');
write (^B'Ansi Screens: ['^S,numwelcomes,^R']'^M);
if exist (textfiledir+'Welcome.ASC') then writeln ('Ascii Screen: ['^S'1'^R']'^M);
p:='Enter Choice [#1-'+strr(numwelcomes)+'] ';
if asciii then p:=p+'[A/Ascii] ';
p:=p+'[Q/Quit]: ';
write (^B+p);
writestr ('*');
bobway:=valu(input);
if upcase(input[1])='A' then begin
printfile (textfiledir+'WELCOME.ASC');
writestr ('Press ['^R'Return'^P'] to continue. *')
end;
if valu(input) in [1..numwelcomes] then begin
if ansi then begin
if bobway>numwelcomes then
writeln (^M'There are only '+strr(numwelcomes)+' screens!') else
printfile (textfiledir+'Welcome.'+strr(bobway));
movexy (1,urec.displaylen);
writestr ('Press ['^S'Return'^P'] to continue. *')
end
end;
until upcase(input[1])='Q';
movexy (1,11)
end;
begin
end.